home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / rettig.arc / TRSOURCE.EXE / INFINITY.ASM < prev    next >
Assembly Source File  |  1990-10-22  |  500b  |  24 lines

  1. ; INFINITY.ASM
  2. ;
  3. ; by Leonard Zerman
  4. ;
  5. ; Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  6. ;----------------------------------------------------------------
  7.  
  8.          INCLUDE EXTENDA.INC
  9.          DATASEG
  10.  
  11.          CLpublic <INFINITY>
  12.  
  13.          CLstatic <double INF 7FEFFFFFFFFFFFFFH>
  14.          ; 8087 bit pattern for infinity -1
  15.  
  16.          CLfunc double INFINITY 
  17.  
  18.          CLcode
  19.  
  20.          CLret INF
  21. ;**********************************************
  22.          END
  23.  
  24.